home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
tutor
/
modula12.exe
/
CIRCLES.MOD
< prev
next >
Wrap
Text File
|
1988-10-26
|
580b
|
25 lines
(* Chapter 13 - Program 3 *)
IMPLEMENTATION MODULE Circles;
PROCEDURE GetPi(VAR Pi : REAL);
BEGIN
Pi := 3.14159;
END GetPi;
PROCEDURE AreaOfCircle(Radius : REAL; VAR Area : REAL);
VAR Pie : REAL;
BEGIN
GetPi(Pie);
Area := Pie * Radius * Radius;
END AreaOfCircle;
PROCEDURE PerimeterOfCircle(Radius : REAL; VAR Perim : REAL);
VAR Cake : REAL;
BEGIN
GetPi(Cake);
Perim := 2.0 * Cake * Radius;
END PerimeterOfCircle;
BEGIN (* IMPLEMENTATION MODULE body, empty in this case *)
END Circles.